home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1022_PictMulti < prev    next >
Encoding:
Text File  |  1992-04-08  |  596 b   |  28 lines
  1. %case window field%
  2.     %HandleName%:%        %ControlHandle;
  3.     %fieldName%:%        %integer;
  4. %case create%
  5.     %HandleName% := GetNewControl (%cntlID%, newWindow);
  6.     %fieldName% := GetCtlMin (%HandleName%);
  7.     %Enable?%
  8. %case track%
  9.     if whichControl = %HandleName% then begin
  10.         TrackMulti (%HandleName%, where, %fieldName%);
  11.     end;
  12. %case itemNr%
  13.     %DefineItem%
  14. %case dialog field%
  15.     %fieldname%:%        %integer;
  16.     %Enable?%
  17.     %haveField%
  18. %case init field%
  19.     %fieldname% := 1;
  20.     %Enable?%
  21. %case set%
  22.     SetCtlChoice (%itemname%, %fieldname%);
  23.     %Enable?%
  24. %case hit%
  25.     %Itemname%: begin
  26.             DoMultiState (itemNr, %fieldname%);
  27.         end;
  28.